(save-place-kill-emacs-hook): Always call save-places-to-alist.

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index a33ccbcd7f5f5de83ebca26677c70d27c3fc7de1..9b9268051eaad908ddea5a4351181d49f30a2d6a 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -211,10 +211,12 @@ To save places automatically in all files, put this in your `.emacs' file:
           (setq save-place t)))))
 
 (defun save-place-kill-emacs-hook ()
+  ;; First update the alist.  This loads the old save-place-file if nec.
+  (save-places-to-alist)
+  ;; Now save the alist in the file, if we have ever loaded the file
+  ;; (including just now).
   (if save-place-loaded
-      (progn
-       (save-places-to-alist)
-       (save-place-alist-to-file))))
+      (save-place-alist-to-file)))
 
 (add-hook 'find-file-hooks 'save-place-find-file-hook t)